home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gamesa / module3.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-01  |  813 b   |  50 lines
  1. Attribute VB_Name = "Module3"
  2. Option Explicit
  3. Public num(1 To 4, 1 To 4) As Integer
  4. Public rum(1 To 4, 1 To 4) As Integer
  5. Public r As Integer
  6. Public c As Integer
  7. Public t As Integer
  8. Public flag As Integer
  9. Public nom As Integer
  10.  
  11. Public Sub shuffle()
  12. num(1, 1) = 2
  13. num(1, 2) = 11
  14. num(1, 3) = 15
  15. num(1, 4) = 1
  16. num(2, 1) = 6
  17. num(2, 2) = 4
  18. num(2, 3) = 3
  19. num(2, 4) = 14
  20. num(3, 1) = 8
  21. num(3, 2) = 7
  22. num(3, 3) = 9
  23. num(3, 4) = 10
  24. num(4, 1) = 5
  25. num(4, 2) = 12
  26. num(4, 3) = 13
  27. num(4, 4) = 0
  28. rum(1, 1) = 1
  29. rum(1, 2) = 2
  30. rum(1, 3) = 3
  31. rum(1, 4) = 4
  32. rum(2, 1) = 5
  33. rum(2, 2) = 6
  34. rum(2, 3) = 7
  35. rum(2, 4) = 8
  36. rum(3, 1) = 9
  37. rum(3, 2) = 10
  38. rum(3, 3) = 11
  39. rum(3, 4) = 12
  40. rum(4, 1) = 13
  41. rum(4, 2) = 14
  42. rum(4, 3) = 15
  43. rum(4, 4) = 0
  44. r = 4
  45. c = 4
  46. nom = 0
  47. flag = 0
  48. frmShuffle.Show 1
  49. End Sub
  50.